home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5960.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  27 lines
  1. 5 GOTO10010
  2. 10 DATAx[mý],0.01x[a],X[a]=0.01*x[mý],10,20
  3. 20 DATAx[mý],0.000247105x[acre],X[acre]=2.47105E-4*x[mý],10,30
  4. 30 DATAx[mý],0.000000386102x[mileý],X[mileý]=3.86102E-7*x[mý],20,40
  5. 40 DATAx[a],100x[mý],X[mý]=100*x[a],30,50
  6. 50 DATAx[a],0.0247105x[acre],X[acre]=0.0247105*x[a],40,60
  7. 60 DATAx[a],0.0000386102x[mileý],X[mileý]=3.86102E-5*x[a],50,70
  8. 70 DATAx[acre],4046.86x[mý],X[mý]=4046.86*x[acre],60,80
  9. 80 DATAx[acre],40.4686x[a],X[a]=40.4686*x[acre],70,90
  10. 90 DATAx[acre],0.0015625x[mileý],X[mileý]=.0015625*x[acre],80,100
  11. 100 DATAx[mileý],2589990x[mý],X[mý]=2589990*x[mileý],90,110
  12. 110 DATAx[mileý],25899.9x[a],X[a]=25899.9*x[mileý],100,120
  13. 120 DATAx[mileý],640x[acre],X[acre]=640*x[mileý],110,120
  14. 10010 MODE8:DIM:x=10:y=120:r=x
  15. 10050 p$="Metric conversion (area)"
  16. 10110 RESTORE(r)
  17. 10120 READm$,n$,s$,b,c
  18. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  19. 10140 CLS:PRINTp$;TAB(l);l$;m$;" - ";n$;
  20. 10150 z=ASC(INPUT$(1,@))
  21. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  22. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  23. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  24. 10200 IFz=31 ANDr<>c THENr=c:GOTO10110
  25. 10210 IFz=13 THENCALC$=s$:CALCJMP
  26. 10280 GOTO10150
  27.